home *** CD-ROM | disk | FTP | other *** search
- (if (= @language "deutsch")
- (
- (SET Intro "Wilkommen zum Installer-Script für den PHX-Assembler.\nEs werden ca. 700KB Plattenplatz benötigt")
- (SET Where "Wohin soll der PHX-Assembler hinkopiert werdem ? Es wird ein Verzeichnis namens PHX angelegt")
- (SET AssIn "Es werden nun noch 2 zusätzliche Assigns in s:user-startup eingetragen")
- )
- )
- (if (= @language "english")
- (
- (SET Intro "Welcome to the installer-script for PHX-Assembler.\nPHX needs about 700KB free disk-space")
- (SET Where "Where do you want to place PHX ?")
- (SET AssIn "Now 2 assigns will be added to s:user-startup")
- )
- )
-
- (MESSAGE Intro)
-
- (SET DestDir
- (ASKDIR
- (PROMPT Where)
- (HELP "")
- (DEFAULT "sys:")
- )
- )
-
- (SET BinDest (TACKON DestDir "PHX"))
-
- (RUN (CAT "makedir \""BinDest"\"")) ; Create PHX dir
-
- (COPYFILES
- (SOURCE ":Dev/PHX/")
- (DEST BinDest)
- (ALL)
- (INFOS)
- )
-
- (STARTUP @app-name
- (COMMAND
- (CAT "assign c: \""(TACKON BinDest "PHXASS/bin")"\" add \n"
- "assign c: \""(TACKON BinDest "PHXLNK")"\" add\n"
- )
- )
- (PROMPT AssIn)
- (HELP "")
- )
-
- (RUN
- (CAT "assign c: \""(TACKON BinDest "PHXASS/bin")"\" add \n"
- "assign c: \""(TACKON BinDest "PHXLNK")"\" add\n"
- )
- )
-